﻿Imports QLPhuTungOto.Data
Public Class XeBUS
    Public Function LayDSXe() As List(Of Xe)
        Dim db As New QLPhuTungOtoDataContext
        Return db.Xe.LayDSXe()
    End Function
    Public Sub SuaXe(ByVal xe As Xe)
        Dim db As New QLPhuTungOtoDataContext
        db.Xe.SuaXe(xe)
    End Sub
    Public Sub ThemXe(ByVal xe As Xe)
        Dim db As New QLPhuTungOtoDataContext
        db.Xe.ThemXe(xe)
    End Sub
    Public Sub XoaXe(ByVal maXe As Integer)
        Dim db As New QLPhuTungOtoDataContext
        db.Xe.XoaXe(maXe)
    End Sub
End Class
